00100	;GEOMETRIC MODELING COMMAND FILE.
00200	;
00300	;BASIC SUBROUTINES.
00400	;  %S  -  Loader switch to load local symbols.
00500	;  (R) -  FAIL switch to stop on Assembly errors.
00600	;   M -  Marco declarations file.
00700	;   N -  Node declarations file.
00800		RAID.REL[SYS,BGB],;	DCS'S RAID RUN SYMSRT FIRST.
00900		%SFATAL[GEM,HE],;	ERROR ROUTINES (SHOULD BE LOADED FIRST)
01000		M+ARITH[GEM,HE],;	SIMPLE NUMERICAL SUBROUTINES.
01100		M+CONVRT[GEM,HE],;	CHARACTER STREAM SUBROUTINES
01200		M+III[GEM,HE],;		III DISPLAY ROUTINES.
01300	;
01400	;GEOMETRIC EDITOR.
01500	;
01600		M+N+FLAGS+GEOMED[GEM,HE],;	GEOMETRIC EDITOR.
01700		M+N+GEMTXT[GEM,HE],;		GEM TEXT EDITING.
01800		M+N+FLAGS+MEM[GEM,HE],;		MEMORY MANAGEMENT.
01900		M+N+FLAGS+IO[GEM,HE],;		INPUT-OUTPUT.
02000	;
02100	;3D GEOMETRIC MODELING.
02200	;
02300		M+N+WINGS[GEM,HE],;	WINGED EDGE SUBROUTINES.
02400		M+N+EULER[GEM,HE],;	EULER POLYHEDRON PRIMITIVES.
02500		M+N+FLAGS+BIN[GEM,HE],;	BODY INTERSECTION.
02600		M+N+EUCLID[GEM,HE],;	EUCLIDEAN TRANSFORMATIONS.
02700	;
02800	;2D IMAGE PROCESSING.
02900	;
03000		M+N+VIEWER[GEM,HE],;	DISPLAY VIEW SUBROUTINES.
03100		M+N+OCCULT[GEM,HE],;	HIDDEN LINE ELIMINATION.
03200		M+N+REVEAL[GEM,HE];	LOCUS SOLVERS.